home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / ModToPas / txt / TPMath.def < prev    next >
Text File  |  1993-12-13  |  830b  |  38 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TPMath.def
  4.     :Contents.   Turbo Pascal Matheprozeduren
  5.     :Author.     Markus Uhlendahl
  6.     :Address.    Vorm Burgtor 16, D-4408 Dülmen
  7.     :Phone.      02594/81540
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga AMSoft V3.3d
  11.  
  12. **********************************************************************)
  13. DEFINITION MODULE TPMath;
  14.  
  15.  
  16. PROCEDURE Abs (r : REAL) : REAL;
  17.  
  18. PROCEDURE ArcTan (r : REAL) : REAL;
  19.  
  20. PROCEDURE Cos (r : REAL) : REAL;
  21.  
  22. PROCEDURE Exp (r : REAL) : REAL;
  23.  
  24. PROCEDURE Frac (r : REAL) : REAL;
  25.  
  26. PROCEDURE Ln (r : REAL) : REAL;
  27.  
  28. PROCEDURE Round (r : REAL) : REAL; (* fehlerhaft *)
  29.  
  30. PROCEDURE Sin (r : REAL) : REAL;
  31.  
  32. PROCEDURE Sqr (r : REAL) : REAL;
  33.  
  34. PROCEDURE Sqrt (r : REAL) : REAL;
  35.  
  36.  
  37. END TPMath.
  38.